object frm_Excel: Tfrm_Excel
  Left = 244
  Top = 140
  Caption = 'Exportar para Excel'
  ClientHeight = 532
  ClientWidth = 912
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Paginas: TPageControl
    Left = 0
    Top = 8
    Width = 897
    Height = 505
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'SQL'
      object btnExportar: TBitBtn
        Left = 784
        Top = 8
        Width = 97
        Height = 25
        Caption = '&Salvar como Excel'
        TabOrder = 0
        OnClick = btnExportarClick
      end
      object Memo_SQL: TMemo
        Left = 8
        Top = 16
        Width = 665
        Height = 89
        Lines.Strings = (
          '')
        TabOrder = 1
      end
      object btnListar: TBitBtn
        Left = 688
        Top = 8
        Width = 89
        Height = 25
        Caption = '&Listar'
        TabOrder = 2
        OnClick = btnListarClick
      end
      object BitBtn1: TBitBtn
        Left = 688
        Top = 64
        Width = 89
        Height = 25
        Caption = '&Abrir'
        TabOrder = 3
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 784
        Top = 64
        Width = 97
        Height = 25
        Caption = 'Salvar'
        TabOrder = 4
        OnClick = BitBtn2Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Grid'
      ImageIndex = 1
      object lbltituloGrid: TLabel
        Left = 120
        Top = 16
        Width = 51
        Height = 13
        Caption = 'lbltituloGrid'
      end
      object Grid: TStringGrid
        Left = 8
        Top = 40
        Width = 873
        Height = 425
        DefaultRowHeight = 18
        FixedCols = 0
        TabOrder = 0
        ColWidths = (
          134
          100
          109
          64
          64)
      end
      object btGeraGrid: TBitBtn
        Left = 8
        Top = 8
        Width = 89
        Height = 25
        Caption = 'Gerar Excel'
        TabOrder = 1
        OnClick = btGeraGridClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Listagem'
      ImageIndex = 2
      object DBGrid1: TDBGrid
        Left = 3
        Top = 3
        Width = 883
        Height = 471
        DataSource = DS_Busca
        DrawingStyle = gdsGradient
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object Qr_Busca: TZQuery
    Connection = DM.DB_Dados
    Active = True
    SQL.Strings = (
      
        'select ic.codigo, c.Nome, ic.descricao, ic.data, ic.valor from t' +
        'ab_conta c '
      'inner join tab_conta_itens ic on c.codigo = ic.cod_conta'
      'order by ic.data')
    Params = <>
    Left = 552
    Top = 8
  end
  object DS_Busca: TDataSource
    DataSet = Qr_Busca
    Left = 608
    Top = 8
  end
  object AbrirArq: TOpenDialog
    InitialDir = '\\192.168.0.241\rede\sistemaviaplan\relat'#243'rios'
    Left = 520
    Top = 184
  end
  object Salvar: TSaveDialog
    InitialDir = '\\192.168.0.241\rede\sistemaviaplan\relat'#243'rios'
    Left = 608
    Top = 184
  end
end
